pgcd
pgcd(liste)
Func
Local res,a
liste[1]àres
For a,2,dim(liste)
gcd(res,liste[a])àres
EndFor
res
EndFunc